home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 11
/
FM Towns Free Software Collection 11.iso
/
t_os
/
data
/
dora
/
dorahelp.plp
< prev
next >
Wrap
Text File
|
1993-01-27
|
1KB
|
37 lines
%CloseMEMO{[memono]
case (@mcheck!=memono,
{Yes},{CloseAllMemo;mopen(memono);mclose(3)},
{No},{mclose(3)})};
/* DORAの説明を表示する */
%NOTE {[file];
case (@mlast==9,{Yes},{select ({メモ9を削除してもいいですか?},
Wtime4,,
{ は い },{NOTE1(file)},
{ いいえ },
)},
{No},{NOTE1(file)}
)};
%NOTE1 {[file];var MEMO [1];
case (@mlast==9,{Yes},{CloseAllMemo;mclear(MEMO)},
{No},{MEMO:=@mlast+1;CloseAllMemo;madd(MEMO,{\n});
mclear(MEMO)});
case (@filechk(CDIR2|{DORA}|VL|{.}|file),
{Yes},{mread(CDIR2|{DORA}|VL|{.}|file,MEMO)});
mopen(MEMO,0,21,639,459,{r});
loop ({footnote({終了},{b});waitx ();
case (@xtype,
101,{CloseMEMO(MEMO);im({No})},
201,{CloseMEMO(MEMO);im({No})},
,{im({Yes})}
)})};
/* 表示ファイルの選択 */
%NOTEsel{loop ({footnote({表示するファイルを選んでください});
SNDMSG({erande_f.snd});
select ({表示するファイルを選んでください},
Wtime4,{im({No})},
{バージョンアップの概要},{NOTE({VUP});im({Yes})},
{ ドキュメントファイル },{NOTE({DOC});im({Yes})},
{ オンラインヘルプ },{NOTE({HLP});im({Yes})},
{ 終 了 },{im({No})}
)})};
NOTEsel;